home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / mui / bcc_src.lha / Parser / ClassRef.cpp < prev    next >
C/C++ Source or Header  |  1997-05-29  |  663b  |  50 lines
  1. #include "parsefile.h"
  2. #include "global.h"
  3. #include "ClassDef.h"
  4.  
  5.  
  6. short ParseFile::ClassDCheck( void )
  7. {
  8.  ClassDef *cd;
  9.  
  10.     if( (TokType == ALN) && (cd = (ClassDef*)ClassList.FindItem( Tok, TokLen ) ) ) {
  11.     
  12.         StopCopy();
  13.         fprintf( ofh, "Object" );
  14.         StartCopy();
  15.         
  16.         while( 1 ) {
  17.         
  18.             GetToken();
  19.             if( !TokLen ) return 0;
  20.             
  21.             if( !chcmp( '*' ) ) {
  22.                 Error( 15 );
  23.                 return 0;
  24.             }
  25.  
  26.             GetToken();
  27.             if( !TokLen ) return 0;
  28.             
  29.             if( TokType != ALN ) {
  30.                 Error( 4 );
  31.                 return 0;
  32.             }
  33.  
  34.             GetToken();
  35.             if( !TokLen ) return 0;
  36.  
  37.             if( chcmp( ';' ) ) break;
  38.             
  39.             if( !chcmp( ',' ) ) {
  40.                 Error( 16 );
  41.                 return 0;
  42.             }
  43.         
  44.         }
  45.     
  46.     }
  47.  
  48.  return 1;
  49. }
  50.